home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / demodisks / drives / 1581-demo.lzh / read t&s (.txt) < prev    next >
Commodore BASIC  |  1994-10-19  |  453b  |  20 lines
  1. 10 open1,8,15:m$=chr$(0)
  2. 20 open2,8,2,"#"
  3. 30 input"t,s to read";t,s
  4. 50 print#1,"m-w"+chr$(11)+chr$(0)+chr$(2)+chr$(t)+chr$(s)
  5. 70 print#1,"m-w"+chr$(2)+chr$(0)+chr$(1)+chr$(128)
  6. 100 print#1,"m-r"+chr$(2)+chr$(0)+chr$(1)
  7. 110 get#1,a$:ifasc(a$+m$)>127then100
  8. 120 print"status="asc(a$+m$)
  9. 130 print#1,"m-r"+chr$(188)+chr$(1)+chr$(2)
  10. 140 get#1,a$:pt=asc(a$+m$)
  11. 150 get#1,a$:ps=asc(a$+m$)
  12. 170 print#1,"m-r"+chr$(239)+chr$(0)+chr$(1)
  13. 180 get#1,a$:si=asc(a$+m$)
  14. 190 print"pt,ps,side";pt,ps,si
  15. 200 print
  16. 220 print#1,"m-r"+chr$(0)+chr$(3)+chr$(0)
  17. 260 forx=0to15:fory=1to16
  18. 290 get#1,a$:printa$;
  19. 310 next:print: next
  20.